program Ex1;
var int: integer;
    mas1, mas2, mas3: array[-4..++15] of integer;
var a, b, c: integer;
    massive: array[100..105] of integer;
begin
  {Comment one}
  (*Comment two*)
  a := -(-(-(-(1))));
  b := 10;
  c := 100;
  int := (((a + b + c)*a)/b) - c;
  mas1[1] := a;
  mas2[1] := c;
  mas3[1] := b;
  mas1[c - (mas2[c- b*9 - 9])] := - (a + b - - -(c + - mas2[- (c - c)]) - (50 + 45));
  mas2[b+a+a] := 54 + mas1[100 - c + a] - mas1[10 - 5 * mas2[40 - b - mas3[c - b*9 - 9] - 19] + 489];
  while (((c <= (b*b+5)))) do
  begin
    massive[c] := c+b-a;
    c := c+1
  end;
  mas1[----4] := 5;
end.

{var k: integer;
f: array[$ffff..10] of integer;
begin
k:=4;
f[1] := k+2;
while k < f[1] do
k := k + 1;
end.}


Program 
1Ex1;  &&&&&&&&&&
$; 
_
^^^:=
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq;
12345678901
$FFFFFFFFFF
qwer^QWER;

{var int: ARRAY [ -132 ..4456]of integer;
	mas1, mas2, mas3: array[20..30] of integer;
  l, j2, j3: integer;
  k, f, _12DF3, a: InTeGeR; {Comment
begin  
{Comment
  k := -10*(34/56)+34;
  int[3] := 12+21;  
  int[123] := j2 + mas1[123 - mas2[123+123+123 * mas3[l + j2 + j3]]] -45 *56;  
  while k<=4 do
  begin
    k := k - 1;
  end;
end. ervf